null {5}clear 
   1 .
   2 . line CONCATENATOR
   3 . DAVE IBACH & JIM          DUNSON     10/81
   4 .
   8 B=59;C=20050;input "ELIM #:",""A;for N=-24576to C;if %(N)#Anext N
   9 %(N-1)=B;for N=Nto %(C);%(N)=%(N+2);next N;%(C)=%(C)-2;STOP
:return ;clear ;CY=0;CX=-40;NT=5;print "right STOP TAPEleft ";NT=0;if KPclear ;list 